home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 March / Amiga-CD 1996 #3.iso / demos / databasepro3 / arexx / auto / mark.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-01-19  |  395 b   |  31 lines
  1. /* mark */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS DataBase
  6.  
  7. DBtoFront
  8.  
  9. op = 2
  10.  
  11. DO FOREVER
  12.   PickField "Feld wählen"
  13.   IF RC ~= 0 THEN
  14.     EXIT
  15.   feld = result
  16.   RequestText "Muster eingeben"
  17.   muster = result
  18.   IF op = 2 THEN
  19.     MarkRange $F || feld muster
  20.   ELSE
  21.     DemarkRange $F || feld "~(" || muster || ")"
  22.   Request "_UND|_ODER|_Abbruch" "wat nu ?"
  23.   op = RC
  24.   IF op = 0 THEN
  25.     EXIT
  26. END
  27.  
  28. ADDRESS
  29.  
  30.  
  31.